Intake Derived Type
type, public :: Intake
Components
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=float), | public | :: | area |
surface (m2) |
|||
| integer(kind=short), | public | :: | c |
row and column number in the local coordinate of raster domain |
|||
| integer(kind=short), | public | :: | doy_start |
day of year intake starts taking water |
|||
| integer(kind=short), | public | :: | doy_stop |
day of year intake stops taking water |
|||
| real(kind=float), | public | :: | e_flow(365) |
minimum environmental flow for every day of the year (m3/s) |
|||
| real(kind=float), | public | :: | eta |
irrigation efficiency (0-1) |
|||
| real(kind=float), | public | :: | fluxQ |
actual diverted discharge (m3/s) |
|||
| character(len=300), | public | :: | id | ||||
| type(grid_integer), | public | :: | mask | ||||
| real(kind=float), | public | :: | max_discharge(365) |
maximum concessed discharge for every day of the year (m3/s) |
|||
| character(len=300), | public | :: | name | ||||
| integer(kind=short), | public | :: | r |
row and column number in the local coordinate of raster domain |
|||
| real(kind=float), | public | :: | sat_max |
district averaged soil saturation above which irrigation is stopped |
|||
| type(Coordinate), | public | :: | xy |
easting and northing |
Source Code
TYPE Intake CHARACTER (LEN = 300) :: name CHARACTER (LEN = 300) :: id REAL (KIND = float) :: max_discharge (365) !! maximum concessed discharge for every day of the year (m3/s) REAL (KIND = float) :: fluxQ !! actual diverted discharge (m3/s) TYPE (Coordinate) :: xy !!easting and northing REAL (KIND = float) :: e_flow (365) !! minimum environmental flow for every day of the year (m3/s) REAL (KIND = float) :: eta !! irrigation efficiency (0-1) INTEGER (KIND = short) :: doy_start !!day of year intake starts taking water INTEGER (KIND = short) :: doy_stop !!day of year intake stops taking water INTEGER (KIND = short) :: r, c !!row and column number in the local coordinate of raster domain REAL (KIND = float) :: sat_max !!district averaged soil saturation above which irrigation is stopped TYPE (grid_integer) :: mask REAL (KIND = float) :: area !! surface (m2) END TYPE Intake